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INTRODUCTION 

, This instant outlines the FORTRAN Extended language (version 4.0) 
for the CONTROL DATA® CYBER 70/Models 72, 73 and 74, and 
6200,6400,6500,6600 and 6700 computers, and FORTRAN Extended 
(version 2.0) for the CONTROL DATA CYBER 70/Model 76, 7600, 
7601-1 and 761 X computers. Detailed information is contained in the 
FORTRAN Extended Reference Manual Publication No. 60305600 A. 
FORTRAN Extended is designed to comply with American National 
Standards Institute FORTRAN language. 

The FORTRAN compiler operates in conjunction with version 3.0 COM- 
PASS assembly language processor under' control of the 6000 SCOPE 
operating system (version 3.4) and 7000 SCOPE operating system (ver- 
sion 2.0). 

The following new features are included in FORTRAN Extended: 
LEVEL statement 
IMPLICIT statement 
Hollerith strings in output lists 
Expressions in output lists 
Quote delimited Hollerith strings 
Exclusive OR function 
Messages on STOP and PAUSE statements 
Line limit on output file at execution time 
Syntax scan only during compilation 
Program listings suppressed but reference map produced 
Rewrite in place, mass storage 

Multiple systems texts and local texts for intermixed COMPASS 
programs 

Throughout this document, CONTROL DATA extensions to the FOR- 
TRAN language are indicated by blue type. Otherwise, FORTRAN 
Extended conforms to ANSI standards. 

Information which applies only to the CONTROL DATA CYBER 70/ 
Model 76 and 7600 computers is indicated by red type. 

Information which applies only to the CONTROL DATA CYBER 70/ 
Models 72, 73 and 74, and 6000 Series computers is indicated by green 
type. 



LANGUAGE ELEMENTS 
SYMBOLIC NAMES 

Symbolic names are 1—7 alphanumeric characters; the first must be 
alphabetic. 

FORTRAN CHARACTER SET 

Alphabetic: A to Z \ 
Numeric: to 9 
Special: 



9 J a 


Ipha 


Tumeric 




equal 




) 


right parenthesis 


plus 






comma 


minus 






decimal point 


asterisk 




$ 


dollar sign 


slash 






blank 



( left parenthesis ^ or ' quote 

Any character of the SCOPE set may be used in Hollerith information 
and comments. Blanks are significant only in Hollerith fields. 



FORTRAN STATEMENTS 



Column 1 


C or $ or * indicates comment line 


1-2 


C$ indicates DEBUG statement 


1-5 


Statement label 


6 


Any character other than blank or zero de- 
notes continuation, except on comment cards. 
A DEBUG continuation card must contain C$ 
in columns 1 and 2. 


7-72 


Statement 


73-80 


Identification field, not processed by compiler 



Statements may be labeled by an integer constant in the range 1-99999. 
If a C, $ or * appears in column 1, the remainder of the card is ignored 
by the compiler, but printed with the source listing as a comment. 

$ may be used to separate multiple statements on a card with all state- 
ments except FORMAT, OVERLAY or debugging statements. . 



A character other than zero or blank in column 6 signifies continuation 
from the preceding card. 

Statements are written in columns 7—72; blanks are ignored except in 
Hollerith fields. 

Columns 73—80 may contain identification and serial numbers which 
are ignored by the compiler but printed with the program listing. 

All 80 columns may be used for data input. 



CONSTANTS 



Constants 


Form 


Examples 


Integer 


n 1 n 2--- n m 


2 




1<m<18 


247 




Range: -(2 48 -1) to 2 48 -1 






Integer addition and subtraction 


31456932 




results may range from —(2—1) 






to2 59 -1. Integers used as a DO 






index or as a subscript must be 






in the range 2—2. 




Real 


n.n .n n. n.nE±s .nE±s n.E±s nE±s 






n Coefficients 15 


7.5 




decimal digits 


3.22 
42. E1 




E+s Exponent 


314.E05 
700.E-2 




s Base TO scale factor 


.5 
0. 




Range 10~ 293 to 10 +322 






Accurate to approximately 15 






decimal digits 





Constants 


Form 


Examples 


Double 
Precision 


n.nD+s .nD+s n.D±s nD±s 

n Coefficient < 29 
decimal digits 

D+s Exponent 

s Base 10 scale factor 


5.834D2 

7.D2 

9.2D03 

14.D-5 

3120D4 




Range 1CT 293 to 10 +322 


1.D0 




Accurate to approximately 
29 decimal digits 




Complex 


(r1,r2) 


(1.,7.54) 




r1 Real part 


(-2.1 E1 ,3.24) 




r2 Imaginary part 


(0.-1.) 




Each part has same range as 
a real constant 


(4.0,5.0) 


Octal 


n r ..n m B 


7777777777B 




1<m<20 


525252B 


Hollerith 


nHf 
nRf 
nLf 
±U 
1<n<10 in expression 

1<n<150 in FORMAT 
statement 






H left justified with blank fill 


6HABCDEF 




R right justified with binary 
zero fill 


7RJUSTIFY 




L left justified with binary 
zero fill 


7LTHE END 



Constants 


Form 


Examples 




A Hollerith string delimited by 


=£ABCDEF* 




paired symbols =£ =£ can be used 






anywhere the H form of the 






Hollerith constant can be used. 






For example: 






IF(V.EQ.^YES^) GOTO 20 






PRINT I,* SORT = ^ ,SQRT(.5) 






1 FORMAT (A10,F10.2) 




Logical 


TRUE, or .T. stored as minus 


LOGICAL X1,Z2 




one 


X1 =.TRUE. 
Z2 = . FALSE. 




.FALSE, or .F. stored as all 






zero bits (+0) 





VARIABLES 

1 —7 alphanumeric characters; the first must be alphabetic. 

A variable not defined in a type declaration is real if the first character 
of the symbolic name is any letter other than l,J,K,L,M,N and if no 
IMPLICIT statement appears in that program unit. 

Implied Typing of Variables 



A-H, O-Z 


Real 


l-N 


Integer 



Variables 


Form 


Examples 


Integer 


Range -(2 5a -1) to 2 59 -1. 
As subscript or index of a DO 


ITEM 
JSUM 




statement, maximum value is 


KOOL 




2 17 -2. Asa result of multipli- 


INTEGER X 




cation or division or conversion 






from real to integer, or integer 






to real, maximum value is 
2 48 -1. 





Variables 


Form 


Examples 


Real 


Range 10" 293 to 10 +322 , 


AVAR 




approximately 15 signi- 
ficant digits. 


SUM 
TUF 
BETA 
REAL I 


Double 


Must be defined explicitly 


DOUBLE PRECISION 


Precision 


in type declaration. Range 
10" 293 to 10 +322 , approxi- 
mately 29 significant digits. 
Occupies two words in 
storage. 


*OMEGA,X,B 
DOUBLE X,Y 


Complex 


Must be defined explicitly 
in type declaration. Occupies 
two words in storage; each 
word contains a number in 
real variable format and 
each number can range 
.from 1(r 293 to 10 +322 


COMPLEX A, D 
COMPLEX P2 


Logical 


Must be defined explicitly in 
type declaration. A logical 
variable with positive zero 
value is false. A logical vari- 
able with value minus one 
is true. 


LOGICAL L3,C 
LOGICAL L2,R 



ARRAYS 

An array name may have up to three subscripts. Subscripts may be any 
valid arithmetic expressions; zero and negative subscripts are not al- 
lowed. A non-integer subscript value is truncated to integer. If the num- 
ber of subscripts in a reference is less than the declared dimensions of 
the array, the compiler assumes a value of one for missing subscripts. 

Examples: 



(l,J) 



(R+3.5*A,B) 



(l+3,J+3,2*K+1) 



To find the location of an element in the linear sequence of storage 
locations: 



Number of 
Dimensions 


Array 
Dimension 


Subscript 


Location of 

Element Relative 

to Starting 

Location 


1 


ALPHA(K) 


ALPHA(k) 


(k-1)xE 


2 


ALPHA(K,M) 


ALPHA(k,m) 


(k-1+Kx(m-1))xE 


3 


ALPHA(K,M,N) 


ALPHA(k,m,n) 


(k-1 + Kx(m-1+Mx 
(n-1)))xE 



K, M, and N are dimensions of the array. 

k, m, and n are actual subscript values of the array. 

1 is subtracted from each subscript value because the subscript starts 
with 1, notO. 



E is length of the element. For real, logical, and integer arrays, E = 1. 
For complex and double precision arrays, E = 2. 



STATEMENT FORMS 

The following symbols are used in the descriptions of FORTRAN Ex-^ 
tended statements: ■ 

v variable or array element 

sn statement label 

iv integer variable 

name symbolic name " 

u input/output unit: 

1- or 2-digit decimal integer constant 

integer variable with value of: 1—99 or display code 

file name 



fn 
iolist 



format designator 
input/output list 



Other forms are defined individually in the following list of statements. 



Assignment Statements 




Form 


Examples 


v = arithmetic expression 


A = B + C 


logical v=logical or relational 

expression 


LOGICAL L,M,N 
L = M .AND.N 


v = masking expression 


CAT = 5252B .OR. Z 


MULTIPLE ASSIGNMENT 


I 


v 1 = v 2 = . . . v R = expression 


X = Y = Z = (10+ B)/SUM(1) 


Control Statements 




GO TO sn 


GO TO 30 


GO TO (sn.,, . . . , sn m ) , iv 


GO TO (1,4,7,2), N 


GOTO (sni, . . . , sn m ) iv 


GOTO (3,6,10,1) J 


GO TO (sn., , . . . , sn m ) , expression 


GOTO (1,2,9,4), A + B 



Form 




Examples 


GOTO (sn 1 


sn m ) expression 


GO TO (3,4,5,6) N + J 


GOTO iv,(sn.,, . . 


• > ^m 1 


GO TO LSWITCH, (10,20,30,40) 


GOTO iv (sn lf . . 


..snj 


GOTO NEXT (1,2,3,4) 


ASSIGN snTO iv 




ASSIGN 10 TO LSWITCH 



I F (arithmetic or masking expression) sn 1 ,sn 2 ,sn 3 

I IF (l-N) 3,4,6 

IF (arithmetic or masking expression) sn 1 ,sn 2 

I IF (l*Y*K) 100,200 

IF (logical or relational expression) stat 

I IF (P.AND.Q) RES = 7.2 

IF (logical or relational expression) sn., ,sn 2 

IF (K.EQ. 100) 60,70 



DO sn iv = m, ,m2,m 3 

DO sn iv = m 1 ,m 2 

sn CONTINUE 

PAUSE 

PAUSE n 

PAUSE 9^c . . . o£ 

STOP 

STOPn 

STOP^c . . . c=£ 

END 



string of 1—5 octal 
digits 

string of 1—70 
characters 



DO 100 I = 1,10,2 

DO 2 J= 1,5 

100 CONTINUE 

PAUSE 

PAUSE 2 

PAUSE * CHANGE TAPE * 

STOP 

STOP 25 

STOP^ END OF RUN^ 

END 



Type Declaration 

Type specifications can be dimensioned. 



Form 


Examples 


INTEGER name,, . . . ,name n 


INTEGER A,B,C(10) 


TYPE INTEGER name, , name n 


TYPE INTEGER X,Y,N 


REAL name.,, . . . ,name n 


REALNEXT,X(5) 


TYPE REAL name,, . . . ,name n 


TYPE REAL N,J,CAT 


COMPLEX name,, . . . ,name n 


COMPLEX CC,J 


TYPE COMPLEX name,, . . . ,name n 


TYPE COMPLEX NON,Z(3) 



r^ 



DOUBLE PRECISION name,, . . . ,name n 

DOUBLE PRECISION DP1,DP2 



DOUBLE name,, . . . ,name n 
TYPE DOUBLE PRECISION name. 



DOUBLE DP3 



TYPE DOUBLE PRECISION CAT,DOG 



TYPE DOUBLE name,, . . . ,name n 
LOGICAL name.,, . . . ,name n 



c n 



TYPE LOGICAL name. 



IMPLICIT type, (ac) ,type n (ac) 



TYPE DOUBLE HEN, DUCK 
LOGICAL L1,L2 
TYPE LOGICAL LL,LN 
IMPLICIT REAL (l-N) 



(ac) is a single alphabetic character or range of characters in alpha- 
betic sequence represented by the first and last character separated 
by a minus sign. 



• 



External Declaration 



EXTERNAL ABS 



Storage Allocation 

Examples 



type name 1 (d.,) 
TYPE type name 1 (d.,) 

DIMENSION name 1 (d-,) , . . . ,name n (d n ) 

I DIMENSION SUM (10) 

d: array declarator, one to three integer constants; or in a sub- 

program, one to three integer variables 

type INTEGER, REAL, COMPLEX, DOUBLE PRECISION or 

LOGICAL 

COMMON v., , v n COMMON A,B,C 



COMMON/blkname.,/v 



1 /V T 



,v n . . . /blkname n /v.,, . . . ,v n 

COMMON/BLK/D,E,F/CAT/X,Y,Z(10) 



COMMON// v v v n 



COMMON//NEXT,JAY(3) 



blkname symbolic name or 1—7 digits 
// blank common 



DATA vlist 1 /dlist 1 /, . 



,vlist n /dlist n / 



DATA (var=dlist) , (var=dlist) 



DATA'A,B,C/3.,27 .5,5.0/ 
DATA (X=3.),(Y=5.) 



var variable, array element, array name or implied DO list 

vlist list of array names, array elements, or variable names, sep- 

arated by commas 

dlist one or more of the following forms separated by commas: 

constant 
(constant list) 
rf*constant 
rf*(constant list) 
rf(constant list) 

constant list list of constants separated by commas 



rf 



integer constant. The constant or constant 
list is repeated the number of times indicated 
by rf 



Examples 



EQUIVALENCE (v 1 , . . . ,v n ), . . 

LEVEL n, a 1 , . . . ,a n 

n unsigned integer 1, 2 or 3 
a variable or array name 

Main Programs 

PROGRAM name (file.,, . . . ,file 
PROGRAM name 



,<v 



EQUIVALENCE (N,J),(X,Y) 

LEVEL 3,X,Y,Z{3) 



^ 



PROGRAM A(INPUT,OUTPUT) 
PROGRAM B 



FUNCTION GRATER(A,B) 



Subprograms 

FUNCTION name (p., ,p n ) 

type FUNCTION name (p., p n ) REAL FUNCTION D(X,Y) 

type INTEGER, REAL, COMPLEX, DOUBLE PRECISION or 

LOGICAL 



SUBROUTINE name (p 1 p n ) 

SUBROUTINE name 



SUBROUTINE X(C,D,E) 
SUBROUTINE PGM 



SUBROUTINE name (p 1# . . . ,p n ), RETURNS (b 1 ,b m ) 

SUBROUTINE SUB(X,Y), RETURNS (M,N) > 

SUBROUTINE name,RETURNS (b.,, . . . ,b m ) 

SUBROUTINE SUB2,RETURNS(J,K,L) 



Entry Point 

ENTRY name 



Statement Functions 

name (p 1 , . . . ,p n ) = expression 



ENTRY BOX 



ADD(X,Y,C,D) = X+Y+C+D 
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Form 



Subprogram Control Statements 

Examples 



CALL name 

CALL name (p v . . . ,p n ) 



CALL JIM 
CALL JIM (A,B) 



CALL name (p 1 p n ), RETURNS (b., b m ) 

CALL JOHN (X,Y), RETURNS (N,K) 



CALL name,RETURNS (^ b m ) 

RETURN 
RETURN i 



a dummy argument in 
a RETURNS list 



CALLSUB4,RETURNS (J,K,I) 

RETURN 

RETURN M 



BLOCK DATA 
BLOCK DATA name 



PRINT fn,iolist 
PRINT fn 
PUNCH fn, iolist 
PUNCH fn 
WRITE (u,fn) iolist 
WRITE (u,fn) 
WRITE (u) iolist 
WRITE (u) 
READ fn, iolist 



Specification Subprograms 

BLOCK DATA 
BLOCK DATABD3 

Input/Output 

PRINT 4, A,B,N 
PRINT 20 
PUNCH 2, X,Y,Z 
PUNCH 30 
WRITE (4,27) X,Y,Z 
WRITE (2,30) 
WRITE (3) A,B,C 
WRITE (6) 
READ 100, A,B,C 



Form 


Examples 


READ fn 


READ 50 


READ (u,fn) iolist 


READ (5,100) X,Y,Z 


READ (u,fn) 


READ (5,100) 


READ (u) iolist 


READ (3) JN,AB 


READ (u) 


READ (5) 


BUFFER IN (u,p) (a,b) 


BUFFER IN (1,1)(R(1),R(512)) 


BUFFER OUT(u,p) (a,b) 


BUFFER OUT(1,J) (B(M),B(N)) 



first word of data block to be transferred 

last word of data block to be transferred 

integer constant or integer variable 
zero = even parity, one = odd parity 



NAMELIST/group name^a^ . . . ,a n / . . . /group name n /a., , . 
NAMELIST/SHIP/I1,I2,A,[ 



READ (u, group name) 
WRITE (u,group name) 
READ group name 
PRINT group name 
PUNCH group name 



READ (5,SHIP) 
WRITE (6,SHIP) 
READ SHIP 
PRINT SHIP 
PUNCH SHIP 



a; array names or variables 

group name symbolic name identifying the group a., , 



Infernal Transfer of Dota 



ENCODE (c,fn,v) iolist 
DECODE (c,fn,v) iolist 



ENCODE (40,1,ALPHA) A,B,C 
DECODE (77,17,CARD) INK 



o 



starting location of record; variable or array name 

length of record in characters; unsigned integer con- 
stant or simple integer variable 
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File Manipulation 



Form 


Examples 


REWIND u 


REWIND 3 


BACKSPACE u 


BACKSPACE LUN 


ENDFILEu 


ENDFILE 4 



Format Specification 

sn FORMAT (fs 1 ,fs n ) 100 FORMAT (I6,F7.3,2I4) 

fsj one or more field specifications separated by commas 

and/or grouped by parentheses 

Data Conversion 

srEw.d Single precision floating point with exponent 2E13.3 



srFw.d Single precision floating point without exponent 



F7.3 



srGw.d Single precision floating point with or without exponent 

G14.6 



srDw.d Double precision floating point with exponent 

rlw Decimal integer conversion 

rLw Logical conversion 

rAw Alphanumeric conversion 

rRw Alphanumeric conversion 

rOw Octal integer conversion 

s optional scale factor of the form: 
nPDw.d 
nPEw.d 
nPFw.d 
nPGw.d 
nP 



2D10.4 
4I9 
2L5 
A7 
4R10 
05 



2PD18.7 

3PE20.2 

-1PF13.6 

1PG16.2 

OP 



Examples 



r repetition factor 

w integer constant indicating field width 

d integer constant indicating digits to right of decimal point 



nX 
nH . 



Intraline spacing 



Hollerith 



Format field separator; 
indicates end of 
FORTRAN record 

Column tabulation 



9X 

8H THE END 

*FINIS* 
^ TEST 7^ 



O 



T10. 
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OVERLAYS AND DEBUGGING STATEMENTS 

Overlays 



Form 



Examples 



CALL OVERLAY (fname,i,j, recall, k) 

CALL OVERLAY (4HTEST,1,0,6HRECALL) 
i primary overlay number 

j secondary overlay number 

recall if 6H RECALL is specified, an overlay already in memory is 
not reloaded 

k L format Hollerith constant: name of library containing overlay 

any other non-zero value: overlay loaded from global library 
set 

OVERLAY (fname,i,j,Cn) OVERLAY (TEST,0,0,C5500) 

i primary overlay number, octal 

j secondary overlay number, octal 

Cn n is 6 octal digits indicating start of load relative to blank 

common 

Debug 

The D option on FTN control card selects debugging mode; if it is not 
specified, debugging cards are treated as comments. 

DEBUG statements are written in columns 7—72; columns 1 and 2 of 
each statement must contain C$. Any character, other than blank or 
zero, in column 6 denotes a continuation line. Columns 3, 4, and 5 of a 
continuation line must be blank. 

C$ DEBUG 

C$ DEBUG (name.,, ... ,name n ) 



C$ AREA bounds.,, ... ,bounds n 

C$ DEBUG 



within program unit 



C$ AREA/name., /bounds.,, . . . ,bounds n , 
/name n /bounds 1 , . . . ,bounds n 

" external 
DEBUG (name,, ... ,name ) / debug 



deck 



C$ DEBUG 

bounds (n.,,n 2 ) n., initial line position; n 2 terminal line position ^^ 

I \ 
(n 3 ) n 3 single line position to be debugged ISpF 

(n*,*) n, initial line position; * last line of program 

(*,n 2 ) * first line of program; n 2 terminal line position 

(*,*) first and last lines of program 

C$ ARRAYS (a 1 ,a n ) ^P 

C$ ARRAYS 

aj array names 

C$ CALLS (s 1 s n ) 

C$ CALLS 

Sj subroutine names 
C$ FUNCS (a 1 a n ) 

C$ FUNCS 

fj function name 

C$ GOTOS 
C$ NOGO A| 

C$ STORES (c 1 c n ) 

Cj variable name 

variable name .relational operator, constant 

variable name .relational operator, variable name \ ^) 

variable name .checking operator. 

checking operators: 

RANGE out of range 

INDEF indefinite 

VALID out of range or indefinite if^k 



C$ TRACE (Iv) 

C$ TRACE 

Iv level number: 

tracing outside DO loops 

n tracing up to and including levei n in DO 

nest 

C$ OFF 

C$ OFF (x 1 ,x n ) 

X: any debug option 

PRINTER CONTROL CHARACTERS 



Character 


Action 


Blank 


Space vertically one line then print 





Space vertically two lines then print 


1 


Eject to first line of next page before printing 


+ 


No advance before printing; allows overprinting 


Any other 
character 


Refer to SCOPE Reference Manual 
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to 
Z 

o 

I— 

z 

3 



>- 
< 
CQ 



< 
I— 

O 



0) 

a 

£ 

CD 

X 

IXI 


Y=ABS(X) 
J=IABS(I) 
DOUBLE A,B 
B=DABS(A) 


Y=AINT(X) 
l=INT(X) 
DOUBLE Z 
J=IDINT(Z) 


CN 

< 

a — 

Oq 

^ ° 

CQ —> 


X=AMAXO(l,J,K) 

A=AMAX1(X,Y,Z) 

L=MAXO(l,J,K,N) 

l=MAX1(A,B) 

DOUBLE W,X ; Y,Z 

W=DMAX1(X,Y,Z) 


o .2 
1- u_ 


1- CD 

_ Co5 

3 £ o 

DC £ Q 


CD CP 

CO CO 

03 CD CD 

£££ 


en 

CO CD 
CD p 

cc £ 


s_ i_ CD 
CD CD — 

co co -Q 

CO CO CD CD 3 
CD CD P p O 

DC DC £ £ Q 


° E 


s- CD 

™ S 5 

CD +f O 

DC £ O 


_CD 
_ _ -Q 
CO CD 3 
CD CD O 

DC DC Q 


CD 
CO 

ca & 
cd p 
CC £ 


i^ i_ CD 
CD CD — 

co co -Q 

CD ca CD CO 3 
P CD p CD O 

£ DC £ DC Q 


II 

II 

C/> 
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<^9 


Q 
O Q 

s o 

< 2 


X X o t- X 

< < X X < 

^ ^ < < s 

< < ^ ^ a 
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- 


- 


CN 


CN 

Al 


c 
o 

[E 

v aJ 
Q 


< 


< [?vi 

O ~ CD 

c a) g> 


CN 
< 

O 
^E 

< 


< j 
X '„ 

co CM 
S < 


.E fc 
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— U_ 


3 
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c 
o 

ca 
o 

c 

3 


CD — -. 
T3 CD 

.E o 
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E ™ » 

CD CO CD 

DC .E 42. 


CO 

O cS CD 
O CO 3 

o ™ > 
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Y=AMINO(l,J) 

Z=AMIN1(X,Y) 

L=MINO(X,Y) 

J=MIN1(X,Y) 

DOUBLE A,B,C 

C=DMIN1(A,B) 


1- 
< 

O 

_J 
ll 
ll 

X 


> 

X 

LL 

¥ 
> 


Z=SIGN(X,Y) 
J=ISIGN(I1,I2) 
DOUBLE X,Y,Z 
Z=DSIGN(X,Y) 


Real 

Real 

Integer 

Integer 

Double 


03 

DC 


CJ3 
03 

C 


Real 

Integer 

Double 


Integer 

Real 

Integer 

Real 

Double 


03 

c 


15 

03 

DC 


Real 

Integer 

Double 


AMINO 

AMIN1 

MINO 

MINI 

DMIN1 


< 
O 

_i 

LL 


X 

LL 


SIGN 
ISIGN 
DSIGN 


Al 


- 


- 


CM 


< : 

S < 


Conversion 
from integer 
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Y=SIN(X) 
DOUBLE D,E 
E=DSIN(D) 
COMPLEX CC,F 
CC=CSIN(CD) 
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LIBRARY SUBROUTINES AND FUNCTIONS 

The foJIowing utility subprograms are supplied by the system. ANSI does 
not specify any library subroutines. 



Functions 

RANF (n) 

LOCF (a) 

UNIT (u) 

-1 Unit ready, no error 

+0 Unit ready, EOF 
encountered 

+ 1 Unit ready, parity error 
encountered 

EOF (u) 

No end of file 
encountered 

LENGTH (u) 



IOCHEC (u) 

No read parity error 
LEGVAR (a) 
-1 Indefinite 
+ 1 Out of range 
Normal 



Random number generator 

Returns address of a 

Returns buffer status on unit, u 



Checks for end of file 



Returns number of words read on 
previous buffer or mass storage 
input/output request 

Returns parity status on non- 
buffer unit 



Checks variable a 
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Subroutines 

CALL DUMP (a-, ,b 1 ,f 1 a n ,b p ,f n ) 

CALL PDUMP (a 1 ,b 1 ,f 1 a^b^) 



Dumps storage and termi- 
nates program execution 



Dumps storage and returns 
control to calling program 



a first word } of storage area 
b last word j to be dumped 

f = or 3, octal dump 

f = 1, real dump 

f = 2, integer dump 

f = 4, octal dump 

CALL SSWTCH (i,j) Sense switch test 

i 1 to 6. Integer variable or constant 

j set to 1 if i is on; 2 if i is off. Integer variable 



CALL REMARK (H) 

H Hollerith specification 

< 80 characters 

CALL DISPLA (H,k) 

H Hollerith specification 

< 80 characters 

k Variable or expression 
CALL RANGET (n) 

n Symbolic name to receive seed 

CALL RANSET (n) 
n Dummy argument 



Dayfile message 



Displays name and value 



Current value of RANF 



Initial value of RANF 
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tSECOND(t) or CALL SECOND (t) 
tDATE(a) or CALL DATE (a) 
tTIME(a) or CALL TIME (a) 

CALL ERRSET (a,b) 

Sets maximum number of errors, 
b, before fatal termination; count 
is kept in a. 

CALL LABEL (a,u) 

CALL MOVLEV (a,b,n) 



Elapsed central processor 
time 

Returns current date in for- 
mat bMM/DD/YYb 

Returns current time in for- 
mat HH.MM.SS 

Maximum number of errors 



Tape label information 

Moves data between extend- 
ed core storage and central 
memory, or SCM and LCM 



a and b Variables or array elements 

n Integer constant or expression 

Transfers n consecutive words of data between a and b. 
a is starting address of the data to be moved and b is 
starting address of receiving location. 



CALL OPENMS (u,ix,lngth,t) 
CALL READMS (u,fwa,n,k) 

CALL WRITMS (u,fwa,n,k,r,s) 

CALLSTINDX (u,ix,ingth,t) 

CALLCLOSMS (u) 



Opens mass storage file 

Transmits data from mass 
storage to central memory 

Transmits data from central 
memory to mass storage 

Changes file index in central 
memory to base specified in 
call 

Writes index from central 
memory to file and closes 
file 



tSECOND, TIME and DATE can be used as functions or subroutines. 
The value is always returned via the argument and the normal function 
return. 
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u Unit number 

ix First word address in central memory of index 

Ingth Length of index buffer: Number index, Ingth > (number 

of records in file) +1; name index, Ingth > 2* (number 
of records in file) +1 

t Index type: Number index 0; name index 1 

fwa First word address in central memory of data buffer area 

n Number of 60-bit words in data record to be transferred 

k Index key: Number index 1 < k < Ingth— -1 ; name index, 

k may refer to any 60-bit quantity except ±0 

r Rewrite in place request 

r = +1 in-place rewrite 

r = -1 in-place rewrite if new record length does not 
exceed old record length; otherwise, write at 
end-of-information 

r = normal write at end-of-information 

Parameter may be omitted if no subindex flag parameter 
is required. Default value is zero (normal write). 

s Subindex flag, may be omitted; default value is zero. 

s = 1 index control word entry for record contains a 
special subindex marker flag 



s = subindex marker flag is not included in control 
word 



o 
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SAMPLE DECK STRUCTURES 

FORTRAN SOURCE PROGRAM WITH SCOPE 
CONTROL CARDS 

In the following sample deck SCOPE control cards are shaded. Refer to 
the SCOPE Reference Manual for details of these cards. 



FORTRAN statements 



SUBROUTINE RVIE (C.J.L) 



FORTRAN statements 



FUNCTION RTSM (A,B) 



FORTRAN statements 



PROGRAM MAIN 



a 



/ SETUP, r200, CM50000. 



FORTRAN 
), SOURCE 
PROGRAM 
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COMPILATION ONLY 



FORTRAN source deck 



8 
9 










/FTN (Q,X) t 






/ COMPILE, T500, CM55000. 













t Q-Full semantic and syntactic scan 
of program. All diagnostics and 
complete reference map printed 



X-Warnings printed for 
non-ANSI usage 



COMPILATION AND EXECUTION 




n 



FORTRAN COMPILATION WITH COMPASS 
ASSEMBLY AND EXECUTION 



FORTRAN and COMPASS program unit source decks can be in any 
order. COMPASS source decks must begin with a card containing the 
word IDENTb in columns 11—16 and terminate with a card containing 
the word ENDb in columns 1 1-14 (b denotes a blank). Columns 1-10 
of the I DENT and END cards must be blank. ' 



COMPASS source deck 



FORTRAN source deck 



1 



( LGO. 



FTN(LX) t 



/ EV103,T6000,CM55000,EC100. 



L - Source program 
diagnostics, and 
short reference 
map listed 



-ANSI diagnostics 
listed 



COMPILE AND EXECUTE WITH FORTRAN 
SUBROUTINE AND COMPASS SUBPROGRAM 



Data will be written 
to OUTPUT rather 
than TAPE2 




# 
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COMPILE AND PRODUCE BINARY CARDS 




-0PT=2 specifies 
full optimization 
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LOAD AND EXECUTE BINARY PROGRAM 



€) 
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COMPILE AND EXECUTE WITH RELOCATABLE 
BINARY DECK 



9 A. 



PROGRAM ALFRED(INPUT.OUTPUT,TAPE1,TAPE5,TAPE6) 




COMPILE ONCE AND EXECUTE WITH 
DIFFERENT DATA DECKS 




-Output will be on 
two separate files; 
data #1 will be on 
TAPE1,data#2 
onTAPE2. 



w) 
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PREPARATION OF OVERLAYS 



\ Secondary 
f Overlay 

/ Source D 




xload(lgo) 
/ftn. 



SCOPE Control Card 
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COMPILATION AND TWO EXECUTIONS 
WITH OVERLAYS 







INTERSPERSED DEBUGGING STATEMENTS 



Debug 
Cards 



Debug 
Cards 



Executable Statements 



C$ OFF (FUNCS) 



C$ STORES(A) 



Executable Statements 



C$ FUNCS 



Executable Statements 



Specification Statements 



PROGRAM Statement 



' FTN(D) 

/SCOPE Control Card 



Debugging cards are interspersed; they are inserted at the point in the 
program where they will be activated. 
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EXTERNAL DEBUGGING DECK 




External I r 
Debugging \ f\% DEBUG 
Deck 



The external debugging deck is placed immediately in front of the first 
source line. All program units (here, Program A and Subroutine B) will 
be debugged (unless limiting bounds are specified in the deck). This 
positioning is particularly useful when a program is to be run for the 
first time, since it ensures that all program units will be debugged. 
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INTERNAL DEBUGGING DECK 



Internal 
Debugging 



PROGRAM Statement 



SCOPE Control Card 



When the debugging deck is placed immediately after the program name 
card and before any specification statements, all statements in the pro- 
gram unit will be debugged (unless limiting bounds are specified in the 
deck); no statements in other program units will be debugged. This 
positioning is best when the job is composed of several program units 
known to be free of bugs and one unit that is new or known to have 
bugs. 
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EXTERNAL DECK ON SEPARATE FILE 




Debug Deck 



(Input) 



(Input) 



FTN (l=TAPE1,D) 
Compiler 




(Input) 



(Input) 



FTN (D=TAPE1) 
Compiler 



The debugging deck is placed on a separate file (external debugging 
deck) named by the D parameter on the FTN control card and called in 
during compilation. All program units will be debugged (unless the pro- 
gram units to be debugged are specified in the deck). This positioning is 
useful when several jobs can be processed using the same debugging deck. ^ 
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FORTRAN CONTROL CARD 

FTN. comments 

FTN (p 1f . . . ,p n ) comments 

FTN,p 1 , . . . ,p n . comments 

The optional parameters, p 1# . . . ,p n , may appear in any order within 
the parentheses. All parameters, with the exception of the list control 
options, must be separated by commas. 

FTN. is equivalent to FTN (l=INPUT,L=OUTPUT,B=LGO,S=SYSTEXT, 
R=1,OPT=1). 

Parameters 

I SOURCE INPUT PARAMETER (Default l=INPUT) 

|=|fn Ifn is name of source input file; this form must be 

used if source input file is other than INPUT. 

I=INPUT Source input is on file INPUT 

I only Source input is on file COMPILE 

Compilation stops when an end-of-record (section) 
or end-of-file (partition) is encountered. 

B BINARY OBJECT FILE (Default B=LGO) 

B Generated binary object code is output on file 

LGO. 

B=lfn Generated binary object code is output on file Ifn. 

B=0 No binary object file is produced. 

G=lfn x 

BG=lfn ( Binary object file is loaded and executed at end of 

GB=lfn \ compilation 
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L LIST CONTROL (Default LOUTPUT, R=1) 

I 

y=lfn y is the type of listing of the source program; any 

combination of one to four options selected from 
L R X N. Commas must not be used; X and N 
cannot be specified at the same time. If no options 
are specified, the source program with informative 
and fatal diagnostics is listed. If no file is specified, 
OUTPUT is assumed. 

Ifn is file to receive output listing. 

L=lfn Source program, diagnostics, and short reference 

map listed (default listing). 

L L defaults to LOUTPUT. . 

L=0 or LR=0 Fatal diagnostics and the statements which caused 
them are listed, all other output, including inter- 
mixed COMPASS, is suppressed. 

L=0,R=1 Level 1 reference map \ fatal diagnostics and state- 

L=0,R=2 • Level 2 reference map > ments which caused them 

L=0,R=3 Level 3 reference map ) are suppressed. 

0=lfn Generated object code listed; must not be used if 

E option is selected. 

R=lfn Symbolic reference map listed. 

X-lfn A warning diagnostic is listed for any non-ANSI 

usage. 

N=lfn Listing of informative diagnostics is suppressed; only 

diagnostics fatal to execution are listed. 

Example: 

LRON = Ifn specifies all options except non-ANSI diagnostics are to be 
listed; LO selects source program and generated object code listing on 
OUTPUT. 

E EDITING PARAMETER (Default E=COMPS) 

E or E=lfn Compiler generated object code is output as COM- 

PASS card images for the SCOPE maintenance 
program UPDATE. If E is omitted, normal binary 
object file is produced. and C options must not 
be specified if E is selected. 
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An object code output file is delimited with the card 
images: *DECK, name and *END (name identifies 
the program unit). 

The object code output file Ifn or COM PS is re- 
wound and ready as UPDATE input. No binary file 
is produced. COMPASS is not called automatically. 
When the COMPS file is assembled S = FTNMAC 
must be specified on the COMPASS control card. 

T ERROR TRACEBACK (Default T omitted) 

T Calls to library functions are made with call-by-name 

sequence. Error checking is maximum with full error 
traceback. 

T omitted Call-by-value linkages are generated. Error checking 

is minimum; no traceback occurs. Saves memory 
space and execution time. 

Selecting the D parameter or OPT=0 automatically selects T. 

ROUNDED ARITHMETIC SWITCH (Default: arithmetic not rounded) 

ROUND=op op is arithmetic operator: + - */. Single precision 

(real and complex) floating point arithmetic opera- 
tions use hardware rounding features. Any combi- 
nation of arithmetic operators can be specified. For 
example: ROUND = + -/ 



D DEBUGGING MODE PARAMETER 

D or D=lfn If the debug facility is used, D or D=lfn must be 

specified, and fast compilation (OPT=0) and full 
error traceback (T option) are automatic. When the 
debug parameter is selected, any optimization level 
other than OPT=0 is ignored. A minimum field 
length of 61000 should be specified on the SCOPE 
control card. 

Ifn names the file containing the user debug deck. 
Default option for D=lfn is D=INPUT. 

FTN(D) is equivalent to FTN(D=INPUT,OPT=0,T) 
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A EXIT PARAMETER 



If fatal errors occur, compilation terminates and a 
branch is made to an EXIT(S) control card. If no 
EXIT(S) control card appears, the job terminates. 



Note: S, GT and SYSEDIT parameters are of interest primarily to 
system programmers. 
S SYSTEM TEXT FILE (Default S=SYSTEXT) 

S=lfn Source of systems text information for intermixed 

COMPASS assemblies is on file Ifn. 

If the GT parameter is GT=0 only, or GT is omitted, 
the overlay named SYSTEXT is loaded. If para- 
meter is omitted, information is on SYSTEXT 
overlay. 

S=0 When COMPASS is called to assemble intermixed 

COMPASS programs, it will not read in a system 
text file. 

S=ovlname The system text overlay, ovlname, is loaded from 

the job's current library set. 

S=libname/ The system text overlay, ovlname, is loaded from 

ovlname the library, libname. Libname can be a user library 

file or a system library. 



GT GET SYSTEM TEXT FILE 

GT=lfn Ifn is sequential binary file, loads first system text 

overlay. 

GT=lf n/ Searches Ifn for system text overlay named ovlname, 

ovlname and loads the first encountered. 

GT=0 or No system text is loaded, 

omitted 

Any combination of the GT, S and C parameters must not specify more 
than seven system texts. 
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SYSEDIT SYSTEM EDITING (Default SYSEDIT not selected) 

This option is used mainly for system resident programs. 

SYSEDIT All input/output references are accomplished in- 

or directly through a table search at object time. 

SYSEDIT=FILES File names are not entry points in main program, 

and and subprograms do not produce external refer- 

SYSEDIT=I DENT ences to the file name. 

The I DENT specification causes a $ sign to be 
suffixed to the program name in both I DENT 
and ENTRY cards if it duplicates the program 
name of any FORTRAN object library program. 

7 ; : -!';A"._L -U- - : Z;7c: 0?T!0:\i 

V Compiler uses 513-word buffers for intermediate 

files. Programs with a large number of specifica- 
tions are compiled with a smaller field length 
under this option. Since less space is used in the 
buffers, compile time may increase. On a 7600 
control card, V will be ignored. 

C COMPASS ASSEMBLY 

C The COMPASS assembler is used for code gener- 

ated by FTN. If C is omitted, the faster FTN 
assembler is used. When C is specified, FTNMAC 
is supplied as additional text for the COMPASS 
assembly; therefore, no more than six system 
texts can be specified by GT and S parameters. 
When C is specified, the SCOPE loader control 
card LDSET is required: 
LDSET (LIB=FORTRAN/SYSIO). 

R SYMBOLIC REFERENCE MAP (Default R=1) 

R=0 No map 

R=1 Short map (symbols, addresses, properties) 

R=2 Long map (symbols, addresses, properties, refer- 

ences by line number and a DO-ioop map) 

R=3 Long map with printout of common block mem- 

bers and equivalence groups 



51 



PL PRINT LIMIT (Default n=5000) 

PL=n n is maximum number of records that can be 

written on OUTPUT file at execution time, n 
does not include the records in source program 
listing, nor compilation and execution time list- 
ings; n < 999 999 999 

PL=nB Octal number must be suffixed with a B; n < 

777 777 777B 



Q PROGRAM VERIFICATION 

Compiler performs full syntactic and semantic scan of the program and 
prints all diagnostics, but no object code is produced. A complete refer- 
ence map is produced (with exception of code addresses). This mode is 
substantially faster than a normal compilation; but it should not be 
selected if-the program is to be executed. If Q is omitted, normal com- 
pilation takes place. 



Z ZERO PARAMETER 



All subroutine calls with no parameters are forced 
to pass a parameter list consisting of a zero word. 
This feature is useful only to COMPASS subrou- 
tines expecting a variable number of parameters 
(0 to 63). For example, CALL DUMP dumps 
storage on the OUTPUT file and terminates pro- 
gram execution. If no parameters are specified, a 
zero word parameter is passed. Z should not be 
specified unless necessary, as execution is more 
efficient when Z is omitted. 



LCM LARGE CORE MEMORY ACCESS (Default LCM=D) 

LCM=D Selects 17-bit address mode for level 2 data (most 

efficient method for generating code for data as- 
signed to level 2). User LCM field length must 
not exceed 131,071 words. 

LCM=I Selects 21 -bit address mode for level 2 data; this 

mode depends heavily upon indirect addressing. 
LCM=I must be specified if user LCM field length 
exceeds 131,071 words. 

In neither case can a single common block be 
greater than 131,071 decimal words. 
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OPT OPTIMIZATION PARAMETER 

OPT=m 

m =0 Fast compilation (automatically selects T option) 

m=1 Standard compilation and execution 

m=2 Fast execution 
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